;;; $Id: file-chibi.sld 246 2013-10-21 05:07:48Z alan.watson.f $

(define-library (oaxaca file-chibi)

  (export move-file
          link-file
          make-directory)

  (import (scheme base))

  (import (prefix (chibi filesystem) chibi:))

  (begin
  
    (define (move-file old-path new-path)
      (chibi:rename-file old-path new-path))

    (define (link-file old-path new-path)
      (chibi:link-file old-path new-path))

    (define (make-directory path)
      (chibi:create-directory path #o755))))
